home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 April: Mac OS SDK / Dev.CD Apr 00 SDK1.toast / Development Kits / Mac OS / Communications Toolbox / CTB Sample Code 1.0b16 / CTB Sources / Sources 2 / Connection Tool for CTB / cloc.p < prev    next >
Encoding:
Text File  |  1989-10-06  |  1.3 KB  |  60 lines  |  [TEXT/MPS ]
  1. {************************************************************************************
  2. *
  3. *  Project Name:    CMTools
  4. *     File Name:    cloc.p
  5. *       Authors:    Rob Neville, Alex Kazim, Carol Lee, Byron Han
  6. *          Date:    May 17, 1989
  7. *
  8. *   Description:    
  9. *
  10. *************************************************************************************
  11. *
  12. *    Revision History:
  13. *        5/17/89 - Original version by Rob Neville (IIx)
  14. *        6/26/89 - Rev'd for b2 of Comm Toolbox
  15. *
  16. ************************************************************************************}
  17.  
  18. UNIT mycloc;
  19.  
  20. INTERFACE
  21.  
  22. USES
  23.     MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf,
  24.     FixMath, Script, 
  25.     ConnectionTool,
  26.     CMIntf,
  27.     CMTool,
  28.     CMUtil,
  29.     CRMIntf,
  30.     CTBUtils;
  31.     
  32. function CLOC(hCM: ConnHandle;msg: integer; p1,p2,p3: longint): longint;
  33.  
  34.  
  35. IMPLEMENTATION
  36.  
  37. {    ********************************    }
  38. {    Entry for Localization Interface    }
  39. {    ********************************    }
  40.  
  41. function CLOC(hCM: ConnHandle;msg: integer;p1,p2,p3: longint): longint;
  42. TYPE
  43.     PtrPtr = ^Ptr;
  44.     
  45. VAR
  46.     outPtr:    Ptr;
  47.     procID: INTEGER ;
  48.     
  49. begin
  50.     outPtr := PtrPtr(p2)^;
  51.     procID := hCM^^.procID ;
  52.     case msg of
  53.         cmL2English:
  54.             cloc := TranslateConfig( procID, Ptr(p1),outPtr,p3,verUS,ClassCM);
  55.         cmL2Intl:
  56.             cloc := TranslateConfig( procID, Ptr(p1),outPtr,verUS,p3,ClassCM);
  57.     end; {case}
  58.     PtrPtr(p2)^ := outPtr;
  59. end; {cloc}
  60. end.